home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / SETPRT.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  866 b   |  19 lines
  1. MODULE SetPrt;
  2.  
  3. FROM Files IMPORT Open, Close, Access, File;
  4.  
  5. FROM Text IMPORT Write, WriteString;
  6.  
  7. CONST ESC = 33C;
  8.  
  9. VAR f: File;
  10.  
  11. BEGIN
  12.   Open (f,'PRN:',readSeqTxt);
  13.   Write (f,ESC);
  14.   Write (f,'B');
  15.   Close (f)
  16. END SetPrt.
  17.  
  18. (* $FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$000000C3$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736Ç$000000BFT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$000000F2$0000007C$000000F2$000000C8$000000D4$00000072$000000BF$000000D1$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736$FFF8A736áÇÇ*)
  19.